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ABSTRACT 


To facilitate parametric performance evaluation of heat pipes in 
lightweight heat rejection systems, a computer program was developed. This 
report contains a description of that code along with a user's manual and 
sample input. It is limited to the analysis and design of homogeneous wick 
heat pipes, although the annular heat pipe program previously developed is 
included as part of the heat pipe radiator subroutine in this document. 
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A HOMOGENEOUS HEAT PIPE ANALYSIS CODE 


I, Introduction 

Heat pipes have been successfully used in a variety of high and low heat 

transfer applications and for isothermal operations. They have been suggested 

for use in thermionic reactor system concepts to achieve highly reliable 

1 2 

lightweight heat rejection systems. 5 In order to facilitate evaluation of 
heat pipes for these concepts and to perform parametric evaluations of alterna- 
tive heat pipe designs, a computer program was developed to compute heat pipe 
performance. The code was required for performance predictions for laboratory 
experiments and to aid in the selection of heat pipe materials and designs for 
thermionic reactor systems. 

This report contains a description of that code along with a user's manual 
and sample input. A typical heat pipe consists of a closed tube or pipe with 
an internal wick or screen running the length of the pipe and a small quantity 
of a liquid working fluid. Heat transfer from the evaporator to the condenser 
is achieved by vaporization of the working fluid which flows to the condenser 
of the heat pipe because of the self -induced pressure differential. The fluid 
condenses and returns from the condenser to the evaporator by capillary pumping 
in the wick. The heat transferred depends on the fluid circulation rate and 
latent heat of vaporization. Factors which influence the operation of a heat 
pipe are the liquid and vapor flow properties of the working fluid, the 
surface tension of the liquid, the physical dimensions of the vapor and liquid 
flow spaces, and the geometry of the capillary pumping structure. The perfor- 
mance of most homogeneous heat pipes depends on the capillary pumping capacity 
of the wick structure and its resistance to liquid flow. 
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3 _5 

A variety of wick configurations are described elsewhere. This report 
is limited to the analysis and design of homogeneous wick heat pipes. In these 
designs the capillary wick usually is a screen swaged directly to the inner 
wall of the heat pipe. In comparison, an annular heat pipe has a thin liquid 
annulus separating the wick and the heat pipe wall. The annular heat pipe, 
because it has an open channel for liquid flow, has a much lower liquid pressure 
drop and, therefore, has a much higher heat transfer capacity. Also, since the 
wick pore size affects only the pumping power and not the pressure drop, the 
pore size can be made as small as convenient. An unfortunate characteristic 
of annular heat pipes is that the pumping power developed by the capillary 
force in the wick is limited by the largest pore, i.e., this gives the lowest 
developed pressure head. Thus control of pore size during wick fabrication 
is critical. This is not true with a homogeneous heat pipe. In a homogeneous 
pipe an increased pressure drop in the wick is tolerated in order to remove the 
dependence of pumping pressure head on maximum pore size. The reduced sensitivity 
of this design to variations in pore size makes fabrication easier and should 
result in lower heat pipe production costs. Since large numbers of heat pipes 
must be fabricated for the space radiator applications under consideration, the 
homogeneous heat pipe is an attractive alternative. A program similar to the 
one described herein was written to perform analyses of annular heat pipes, 
and is described in the Thermionic Reactor System Analysis code document. 

The annular heat pipe program is included as part of the heat pipe radiator 
subroutine in this document, 

II, Theory 

1. Assumptions and Approximations . In order for a heat pipe to function 
properly the total pumping pressure generated by the wick capillary force must 
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exceed the sum of the pressure drops in the heat pipe. Thus, 


AP 


cp 


AP V + AP^ + AP g 


+ AP. 


in 


a) 


Diagrams of both transverse and longitudinal cross sections of a typical 
homogeneous heat pipe are shown in Figures la and lb* The equations used to 

describe the heat pipe performance are given in the following section. The 

> 

approximations and derivations are indicated where applicable. More complete 
derivations are given in references 3-5* The equations contained herein are 
applicable only to heat pipes with a cylindrical cross section. 

2. Radial Temperature Drops. The outside evaporator wall temperature 
is given by T* as shown in Figure 1. This is the surface temperature; thus 
any radial film temperature drop to the heat sink must be treated separately. 
The temperature drop through the cylindrical evaporator wall is 
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The radial temperature drop through the wick is 
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The total radial temperature drop for the evaporator is therefore: 
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Similarly, the temperature drop through the condenser wall and wick is 





where \ is the heat of vaporization of the working fluid. The mean velocity 
in the vapor region is 
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w 


2 


(9) 


V 


P/ r v 


The sonic velocity in the heat pipe is determined by the properties and condi- 
tions in the heat pipe as 


V 

s 



cm/ sec 


( 10 ) 


This correlation assumes the ratio of specific heats, K, for the working fluid 
equals 1.667 for monatomic vapors. 

4, Pressure , The static vapor pressure ratio in the evaporator (for 
points 1 and 2 of Figure 1) is 


e l 


1 + N K 


(ID 


where N is the mach number of the vapor # Therefore, 


P “ P 
r e 2 e 


r i i 

ll.o + 1.667 (N) 2 J 


( 12 ) 


5. Acceleration Pressure Drop . The total acceleration pressure drop 


is 


AP_ 
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P - P 
e l e 2 


[ 1.667 (N) 2 ~ | 

1.0 + 1.667 (N) 2 J 


(13) 
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The pressure recovery in the condenser due to decrease in the vapor velocity 
as a result of condensation of the vapor is estimated to be 40 percent of the 
acceleration pressure drop in the evaporation. 


AP 

m-rec 


0.40 AP 

m 


( 14 ) 


The temperature in the condenser section is obtained from the pressure and the 
equation of state of the working fluid in the condenser. 

6. Vapor Flow Pressure Drop . The pressure drop in the flowing vapor 
is given by the Fanning equation 


AP 
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2fG 2 L 

ScP\ 


(15) 


The length used in these calculations is an effective length of the heat 
pipe, defined as 



This definition is used since heat is added over the entire evaporator length 
and the vapor flow rate increases linearly until the exit of the evaporator 
(Pt. 2, Fig. lb) is reached. Conversely, in the condenser section the flow 
rate decreases linearly as the heat is extracted and the vapor condenses. 

The Reynolds number for the vapor flow is 
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If Re v £ 2000, then a laminar flow correlation for the friction factor is 
used, resulting in a pressure drop of 


32G L 


AP 
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(18) 


With Re > 2000, turbulent flow correlations are used and the vapor pressure 
drop is 
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Finally, 
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(0.08)W n, 
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( 20 ) 


7. Liquid Flow Pressure Drop. The liquid phase pressure drop is obtained 


from 


AP j 


H L ef f W 

f>l K w A w 


( 21 ) 


where the flow area is the total cross sectional area of the wick 
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8, Average Condenser Section Conditions . The average pressure of the 
vapor in the condenser is 



r v 2 


AP V + 


0.2 




The average radiator temperature is 


(23) 


T 

r 



(24) 


is obtained from (23) and the equation of state of the working fluid* 


9* Available Pumping Pressure . The available pumping pressure depends 
on the capillary wick pore size and surface tension of the working fluid* The 
total capillary pumping head available is: 


AP 


cp 



(25) 


where y is the liquid surface tension and r 
wick* 


P 


is the effective pore size in the 


10. Empirical Correlations . Several material properties are not avail- 
able as analytic expressions. These include the permeability, the sintered 
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thickness of several layers of screen, and the pore size resulting from 
swaging and sintering of the screen. The data were obtained from tests at 
JPL. It was found that the data could be conveniently represented by the 
following expressions: 


Wick Permeability 

9 " 

Layer Thickness 
t 


Pore Size 


r 

P 


0.0371 


( I ) 1 ' 6185 


2 

cm 


1.3553 

10 ' 74 (?) Cm 


/IN 1 * 0945 
!.65 (-) 


(26) 


(27) 


(28) 


In all cases S refers to the screen mesh (available presently only in wires per 
inch) and the range of validity for the correlation is 50 £ S £ 200. 


III. Program Description 

1. Method of Solution . The program provides a convenient method of 
solving the equations in Section II. The heat input to the pipe is defined 
by the input data. The equations describing operation of the pipe are solved 
iteratively to obtain the necessary heat rejection area. A Newton-Raphson 
iteration scheme is used to provide faster convergence than direct substitu- 
tion. The iteration is necessary since the pressure drops depend on the pipe 
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dimensions, hence the length and/or diameter of the heat pipe, while the con- 
denser dimensions depend on the temperature of the condenser. The condenser 
temperature is fixed by the condenser pressure and the equation of state of the 
working fluid . 

In operation the program computes heat fluxes through the evaporator wall 
and vapor temperature in the evaporator. From the equation of state, the 
absolute pressure in the evaporator is computed. From the total heat input and 
the pipe dimensions the flow rate of the working fluid is computed. Pressure 
drops and total pumping head available from surface tension correlations are 
computed. If the available pump head is sufficient to circulate the fluid and 
therefore transfer the heat, the pressure in the condenser determines the average 
rejection temperature. This approximation holds well when the major pressure 
drops are in the liquid phase flow; otherwise, pressure drops and recovery in 
the condenser cause large temperature variations along the condenser. When 
this occurs the assumption that a single average temperature can be used to 
represent the rejection temperature of the heat pipe may be less valid, 

2, Built-in Data Correlations . Data on material properties of the wall, 
and wick and working fluid are built into the code. The available options are: 

Wall material - Niobium (NC=1) 

Stainless Steel (NC=2) 

Working fluid - Potassium (NL«1) 

Sodium (NL-2) 

The material properties required and the algebraic form of the equations are 
shown in Table 1, New coefficients must be incorporated if other materials are 
desired. 
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IV. User's Manual 


1. Input . A list of the input data required is shown in Table 2. Default 
values for all parameters are included in the code and are shown in the last 
column of the table. These default values; define a sample problem and the use 
of a single namelist, $INP$ , will cause this default case to be run. 

2, Output . The output includes an edit of the input data used for the case 
in NAMELIST format. The output data provided is a list of the input conditions 
as well as temperatures, pressures, and pressure drops for the three sections of 
the heat pipe. 

Note that temperature variations in the condenser due to pressure variations 
along the heat pipe were neglected and a single temperature is used to charac- 
terize the condenser. A typical runstream is shown as an appendix. 
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V 


Nomenclature 


A 

w 

D 

£ 

F 

e 

F 

c 

G 


Sc 

K 

k 

L 


eff 

M 


N 


n 

P 

AP 

cp 

AP 

S 

AP 

m 

t 

m-rec 

AP 

v 

Q 

Re 

r 


Cross-section area of wick 

diameter, cm 

fanning friction factor 

fraction of evaporator area available for heat transfer 
fraction of condenser area available for heat rejection 
mass flow rate - grams/cm^-sec 
dimensional constant 

ratio of specific heat - ( 1 * 6 67 for monatomic fluid) 
thermal conductivity , W/cm-K 
length, cm 

effective length of the heat pipe, cm 

molecular weight of the working fluid 

Mach number (V /V ) 
vs 

number of layers of screen 
static vapor pressure 

2 

pumping pressure generated by capillary wick, N/cm 

2 

pressure drop due to gravity head, N/cm 

2 

pressure drop in liquid flow, N/cm 

2 

pressure drop due to momentum change, N/cm 

pressure rise in condenser due to vapor momentum recovery 

2 

pressure drop in vapor flow, N/cm 
total heat carried by pipe, W 
Reynolds number 
radius, cm 
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pore radius in wick, cm 

r radius of vapor region (= r, inside radius of wick) 
v w 

S screen mesh size (number of wires per inch) 

T temperature, °K 

T* outside evaporator wall temperature 

t thickness of one layer of screen, cm 

mean vapor velocity, cm/ sec 

V sonic velocity in the vapor, cm/sec 

s 

W circulating mass flow rate in the heat pipe, gm/sec 
y liquid surface tension 

X heat of vaporization of the working fluid, W/gm 

Ij, viscosity 

3 

p fluid density, gm/cm 

wick permeability 

Subscripts 

a adiabatic section 

c condenser section 

cp capillary pumping 

e evaporator section 

i inner 

t liquid 

m momentum 

o outer 

s sonic 
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t 

V 

w 

1 

2 


tube wall 
vapor 

wick properties 
beginning of evaporator 
exit of evaporator 
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Table 1. Functional data correlations 



. ... .Variable 

Form i 

pco 

pressure (equation of state) 

! a - A (1/T) - A log T! 

P(T) = e 1 ^ J 

Y 

surface tension 

A 1 - A 2 T 

P e 

liquid density 

A. + TA„ + T 2 A^ + T 4 A. 
12 3 4 

| ^ 

liquid viscosity 

A./T 
A,e L 

! k 
! w 

wall thermal conductivity 

A 1 - V 

H 

liquid conductivity 

tabular data 

p v 

vapor density at STP 

| tabular data 
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Table 2. Input data for homogeneous heat pipes 


Variable 

Fortran 

Name 

— 

Definition 

— 
Default Value 

r 

RTE ' 

outside radius of evaporator 

0.5 cm 

te 



L 

e 

LE 

length of evaporator section 

30.0 cm 

^in 

QIN 

total heat rejected 

700 watts 

N L 

NL 

working fluid (1 = K, 2 = Na) 

1 


TL 

liquid thickness 

0.0 cm 

T 

TW 

wall thickness 

0.02 cm 

w 




L 

a 

LA 

length of adiabatic section 

0.0 cm 

T 

ev 

TEVAP 

outside surface temperature 
evaporator 

1000°K 

r 

P 

RPST 

maximum pore radius* 

— 

N 

c 

| i 

NC 

heat pipe wall material 
(1 - Nb, 2 = SS) 

1 

— 

MMT 

variable FORMAT for output 

— 

f 

e 

FDE 

fraction of evaporator surface 
available for heat input 

1.0 

f 

c 

FCE 

fraction of condenser surface 
available for heat rejection 

1.0 

— 

IHPT 

t homogeneous heat pipe flag 
(1 j= homogeneous heat pipe) 

1 

n L 

NSCL 

number of screen layers 

1 

S 

MESH 

l screen mesh size 

100 

K 

PERMEA 

i wick permeability* 

— 

t sl 

TSL 

thickness of single screen 
layer* 

— 


* Computed from correlations if MESH is non zero. 
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(b) LONGITUDINAL VIEW 

Fig. 1. Heat pipe schematic 


18 


JPL Technical Memorandum 33-663 


APPENDIX 


TYPICAL RUNSTREAM AND SAMPLE PROBLEM 


9FOR* Is HPOpMPO 

FOR S10A-C 06/23/73-16:43:54 (*0> 

MAIN PROGRAM 

STORAGE USED: COOEU) 0013061 OATA(O) 000743) BLANK COMM0N(2> 000025 


EXTERNAL REFERENCES (BLOCK* NAME) 


0003 

HTPIPE 

0004 

NINTHS 

0005 

NRNLS 

0006 

NWDUS 

0007 

NI02S 

0010 

NtfNLS 

0011 

NCRR2* 

0012 

NI01S 

0013 

NSTOPS 


STORAGE ASSIGNMENT (BLOCK* TTPE* RELATIVE LOCATION* NAME) 


0001 


000002 

1L 

0001 


000044 

IDOL 

0001 


000203 

121L 

0001 


000262 

122L 

0001 


000355 

123L 

0001 


000450 

124L 

0001 


000543 

125L 

0001 


000636 

126L 

0001 


000731 

127L 

0001 


001024 

128L 

0001 


001117 

129L 

0001 


001212 

130L 

0001 


000222 

2026 

0001 


00(124 1 

214G 

0001 


000242 

2166 

0001 


000277 

2326 

0001 


000327 

246G 

0001 


000337 

2506 

0001 


000372 

2646 

0001 


000422 

3006 

0001 


000432 

3026 

0001 


000465 

316G 

0001 


000515 

3326 

0001 


000525 

3346 

0001 


000560 

3806 

0001 


000610 

364G 

0001 


000620 

3666 

0001 


000653 

4026 

0001 


000302 

402L 

0001 


000375 

403L 

0001 


000470 

404L 

0001 


000563 

405L 

0001 


000656 

406L 

0001 


ono75l 

407L 

0001 


001044 

400L 

0001 


001137 

409L 

0001 


001232 

410L 

0001 


000703 

4166 

0001 


000713 

4206 

0001 


000746 

4 346 

0001 


000776 

4506 

0001 


001006 

4526 

0001 


001041 

4666 

0001 


001071 

5026 

0001 


001101 

5046 

0001 


001134 

5206 

0001 


001164 

5346 

0001 


001174 

5366 

0001 


001227 

5526 

0001 


001257 

5666 

0001 


001267 

5706 

0000 


000733 

9G0F 

oooo 

R 

000145 

A 

0002 

R 

oooooo 

R 

ooon 

R 

000613 

FCE 

0000 

R 

000612 

FOE 

oooo 

I 

000611 

I 

oooo 

1 

000621 

ICNT 

oooo 

I 

000614 

IHPT 

oooo 


000712 

INPP 

0000 

1 

000616 

INPRT 

0000 


000625 

INPT 

oooo 

I 

000617 

TTPRNT 

oooo 

1 

000577 

11 

oooo 

I 

000610 

Tin 

oooo 

I 

000600 

12 

oooo 

1 

000601 

13 

oooo 

I 

000602 

14 

oooo 

t 

000603 

15 

oooo 

I 

000604 

16 

0000 

I 

000605 

17 

oooo 

I 

000606 

IB 

oooo 

1 

000607 

19 

oooo 

I 

000624 

J 

oooo 

R 

000075 

LA 

0000 

R 

000622 

LC 

oooo 

R 

000013 

LE 

oooo 

I 

000620 

M 

oooo 

R 

OOOQOD 

MESH 

oooo 

1 

000574 

MWT 

0000 

I 

000133 

NC 

oooo 

1 

000037 

NL 

oooo 

I 

000615 

NSCL 

oooo 

R 

0O0025 

PIN 

oooo 

R 

000121 

RPST 

0000 

R 

000623 

RTC 

oooo 

R 

000001 

RTE 

oooo 

R 

000107 

TEVAP 

oooo 

R 

noo051 

tl 

oooo 

R 

000063 

TW 


00100 

1* 

C 

MAIN DRIVER PROGRAM FOR HEAT PIPE COMPUTATIONS 

00101 

2* 


COMMON B121) 

00103 

3* 


IMPLICIT REAL ID 

00104 

4* 


real mesh 

00105 

5* 


DIMENSION RTEUOJ *LE<10> *0IN< 10 ) *NLUC > *TLUO) *TW 1 10 ) -LA ( 10 ) * 

00105 

6* 


1TEVAP4 10) i RPST ( 10) *NC ( 10) 'A 49* 31 I *MMT(3> 

00106 

7* 


DATA 11*12*13*14*15*16*17*18* J9* 110/10*1/ 

00121 

6* 


DATA (A<1* misWn/'RTE^'LE^'NC'^GINtriTL'.'TW'.'LA't'TEVAP* 

00121 

9* 


1 * RPST ♦p , NC , * , LC f * *RTC • • * TVAP* * *TVAPA * * ♦ TVAPC * * * TVM1N* t * TREJ ' » 

00121 

10* 


2*DPVE*»*DPVM0M» * *DPVA*f 'OPVC* **DPVEX' * * OPLE * # 1 DPL A * * * DPLC * * 

00121 

11* 


3'DPLCON*M0PVT* * 'DPLT*» *DPTOT' * *DPST * * • CON* / 

00123 

12* 


DATA MNT/'ClH * A * * * 6* 1POO* # *E12 *3 ) • / 

00125 

13* 


NAMELIST /INPT/RTE * LE * Q IN* NL*TL»TW*LA* TEVAP* RPST *NC* FOE *FCE* 

00125 

14* 


1 IHPT * NSCL* MESH* INPRT* I TPRNT 

00126 

15* 


NAMELIST /INPP/ IHPT pNSCL * MESH * FOE * FCE 

00126 

16* 

C 

IHPT 0/1 ANNUL AR/HOM06ENEOUS DEFAULTS 

00127 

17* 


DATA IHPT* MESH p NSCL *FDEp FCE /I * 100 . * 1 * 1 , * 1 . / 

00135 

16* 


DATA ITPRnT/0/ 

00135 

19* 

C 


00137 

20* 


1 READ 1 5* INPT > 

00142 

21* 


WRITE (6*900) 

00144 

22* 


IFllNRRT.EO.l) WRITE <6*INPT) 

00150 

23* 


IF 1 INPRT *NE • l ) WRITE (6*INPP> 

00154 

00156 

24* 

25* 


WRITE 16* Q 00) 
INPRT=0 

00157 

26* 


MSI 

00160 

27* 


ICNT=0 

00161 

26* 


100 CALL HTPIPE(RTE<I1)pLE( 12) *LC*0IN(I3)*NLI 14) *TLU5)*TW<I6) *RTC* 

00161 

29* 


l LA 1 17> * TEVAP I IB) *RPST (I9)*NC(I10> *FDE*FCE* IHPT* NSCL* MESH* 

00161 

30* 


2 1TPRNT) 

00162 

31* 


WRITE (6*900) 

00164 

32* 


ICNT=ICNT*l 

00165 

33* 


A ( 11*1*1 ) SRTE III) 

00166 

34* 


A( 12*1*2 )=LE(I2) 

00167 

35* 


A(I3+1»3 ) =NL ( 13 > 

00170 

36* 


A( 14*1 *4 )=6IN(I4> 

00171 

37* 


A ( 15*1*5 )=TLII5) 

00172 

36* 


A ( 1 6 +1*6 >=TW(16) 

00173 

39* 


A( 17 +1*7 ) -LA ( I 7) 

00174 

40* 


A(I6 +1*6 >=TEVAP(I8> 

00175 

41* 


A (19 +1*9 )=RPST4I9) 

00176 

42* 


A<ll0+1*10)=NC<110> 

00177 

43* 


GO TO (121*122*123*124* 123*126* 127*120* 129* 130) »M 

00200 

44* 


121 11=11+1 

00201 

45* 


DO 301 1=11*31 

00204 

46* 


301 A( 11 * I )=B( 1-10) 

00206 

47* 


IFIRTEH1 > >100*101*100 
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00211 

48* 

101 

*NTC2)=*NT(2>*Il-l 

00212 

49* 


MRITE16*M*T) UA<U*I> * J=1*I1> *I=1*31> 

00223 

50* 


HMT<2>=W*T12)-I1M 

00224 

51* 


11 = 1 

00225 

52* 


4=2 

00226 

53* 

122 

12=12*1 

00227 

54* 


1FH2«LE*2>60 TO 402 

00231 

55* 


DO 302 1=11*31 

00234 

56* 

302 

At 12# I >=0(1-101 

00236 

57* 

402 

CONTINUE 

00237 

58* 


IF (LEI 12 >> 100*102# 100 

00242 

59* 

102 

MMTt2>=MMT(2>M2-l 

00243 

60* 


IFU2.GT.2>WRlT£(6*lfflm<A(J*I>*J=l#I2> *1=1*311 

00235 

61* 


M*T« 2 > =NNT 1 2 1-1 2*1 

00256 

62* 


4=3 

00237 

63* 


12 =1 

00260 

64* 

123 

13=13*1 

00261 

65* 


IF<I3.LE»2>G0 TO 403 

00263 

66* 


00 303 1=11*31 

00266 

67* 

303 

A(I3*I>=81I-1D> 

00270 

68* 

403 

CONTINUE 

00271 

69* 


IF (BIN ( I3)>l00*103r LOO 

00274 

70* 

103 

MMT(2)=NMTI2>*13-1 

00275 

71* 


IF ( I3.0T.2 > WRITE (6 *M4T> t(A(J*l>* J=t *I3)*I=1*31) 

00307 

72* 


MMT(2)=MttT<E>-l3*l 

00310 

73* 


4=4 

00311 

74* 


13 =1 

00312 

75* 

124 

14=14*1 

00313 

76* 


IF<I4,LE'2’60 TO 404 

00315 

77* 


DO 304 1=11*31 

00320 

78* 

304 

AII4*1>=B<I-10> 

00322 

79* 

404 

CONTINUE 

00323 

80* 


IFINLII4M100# 104* 100 

00326 

81* 

104 

MMT(2)=NMT< 2 > *14-1 

00327 

82* 


1F(I4.6T«?>WRITEI6*HNT> HAlJrt) *J=1'!4> r 1=1*311 

00341 

S3* 


*MTC2>=*MT<2>-I4*1 

00342 

84* 


4=5 

00343 

85* 


14 =1 

00344 

86* 

125 

15=15*1 

00345 

07* 


IF ( I5.LE.2 ) 60 TO 405 

00347 

80* 


DO 30S 1=11*31 

00352 

89* 

305 

A( 15*1 1=81 I— 10> 

00354 

90* 

405 

CONTINUE 

00355 

91* 


IF<TL<I5M 100*105*100 

00360 

92* 

105 

MMT(2)=MttTC2)+Z5~l 

00361 

93* 


IF<15.6T«2>WffITE<6t«mTliUtj*l)*J=l»I5>*I=l*3l> 

00373 

94* 


MMT(2)=HMT(2>-I5*1 

00374 

95* 


M=6 

00375 

96* 


15 =1 

00376 

97* 

126 

16=16*1 

00377 

98* 


IF<I6.L£'2>GO TO 406 

00401 

99* 


DO 306 t=l 1 # 31 

00404 

100* 

306 

AII6* K >=B< 1-10) 

00406 

101* 

406 

CONTINUE 

00407 

102* 


IF(TW(I6> >100*106*100 

00412 

103* 

106 

44T<2>=4*T(2)*I6-1 

00413 

104* 


IF ( I6.6T* 2>WR1 TE <6 *M4TM (A (J*1>»J=1* 161*1=1*31) 

00425 

105* 


NMT(2)=MMT(2>-I6*1 

00426 

106* 


N=7 

00427 

107* 


16 =1 

00430 

108* 

127 

17=17*1 

00431 

109* 


IFU7.LE.2JG0 TO 407 

00433 

110* 


00 307 1=11*31 

00436 

111* 

307 

At IT* 1 )=Bf I-I0> 

00440 

112* 

407 

CONTINUE 

00441 

113* 


IF(LA(I7> >100*107*100 

00444 

114* 

107 

MNT ( 2 >=NNT (21*17—1 

00445 

115* 


1FII7.GT.2>NRITE(6#MNTM(A(J*1I» J=1*X7>*I=1p31) 

00457 

116* 


44TCZ)=44T<2>-l7*l 

00460 

117* 


M~B 

00461 

118* 


17 =1 

00462 

119* 

128 

10=18*1 

00463 

120* 


IF ( 18 »LE • ? > 00 TO 408 

00465 

121* 


DO 306 1=11*31 

00470 

122* 

300 

A( 10* I>=B( I— 10> 

00472 

123* 

400 

CONTINUE 

00473 

124* 


IF (TEVAPt 18) J 100*108# 100 

00476 

125* 

100 

4NT ( 2 ) =44T < 2 > *10-1 

00477 

126* 


IF(I8.6T*2>WRETE<6*MMT> 1 < A 1 J* 1 > » J=| » 18 > * 1=1 * 31 > 

OQSll 

127* 


4NT(2)=4MT<2>-I8*1 

00512 

126* 


M=9 

00513 

129* 


ie =i 

00514 

130* 

129 

19=19*1 

00515 

131* 


IF(I9.LC.2>G0 TO 409 

00517 

132* 


DO 309 1=11*31 

00522 

133* 

309 

A<X9*ll=BtI-lO> 

00524 

134* 

409 

CONTINUE 

00525 

135* 


IF(RPST( 19) >100# 109*100 

00530 

136* 

109 

NMT(Z>=MNT(2>*I9-l 

00531 

137* 


IF(19«GT*?> WRITE ( 5# MNT ) ll A ( J* I > * J=l* 1 9> * 1 = 1 # 31 > 

00543 

00544 

iis: 


NNT<Z)=NNT(2>-I9*1 

4=10 

00545 

140* 


19 =1 

00546 

141* 

130 

110=110*1 

00547 

142* 


IMHO. LE. 2)60 TO 410 

00551 

143* 


DO 310 1=11*31 

00554 

144* 

310 

A( I10*I)=fi( 1-10) 

00356 

145* 

410 

CONTINUE 

00557 

146* 


IF(NC( I10> >100*110*100 



00562 

147* 

110 

MMT<2)=MMT<2) *110-1 

00563 

148* 


IF ( ! 10 1 GT. 2 ) WRITE!6*MMT> < ( A ( Jt I ) , J=1 *110), I =1*31) 

00575 

149* 


MMT{2)=mMT«2>-I10*1 

00576 

150* 


110=1 

00577 

151* 


GO TO 1 

00600 

152* 

900 

FORMAT < 1h1 } 

00601 

153* 


ENO 


ENO OF COMPILATION! NO DIAGNOSTICS, 


GFOR ♦ IS SEARC0 * SEARCB 

FOR SlOA*e O6/23/73-18!44:O0 dO) 


subroutine SEARCB ENTRY POINT 000202 


STORAGE USED* COOEUP 0002401 OATA<0> 0000221 BLANK COMMON<2> 000000 

EXTERNAL REFERENCES (BLOCK* NAME J 
0003 NERR3S 


STORAGE ASSIGNMENT (BLOCK, TYPE* RELATIVE LOCATION* NAME) 


0001 

000170 

12L 

0001 000040 

2L 

0001 000113 

0001 

000117 

24L 

0001 000031 

4L 

0001 000023 

0000 

I 000007 

N 

0000 R 000000 

P 

0000 R 000006 


00101 

1* 

SUBROUTINE 5£ARCB!PR*PC* XX* XU* XL*R*E#K > 

00101 

2* 

C SEARCH 

00103 

3* 

DIMENSION P'2)*X<2) 

00104 

4* 

IF'K'NE.O) GO TO 2 

00106 

5* 

K"i 

00107 

6* 

XG=XX 

00110 

7* 

MSI 

00111 

8* 

XIIISXG 

00112 

9* 

pm SPR-PC 

00113 

10* 

IF<P<1P« 9T ♦ 0 * ) GO TO 4 

00115 

11* 

XL=X6 

00116 

12* 

X6SX8* 1 1 * *ft ) 

00117 

13* 

5 X(2>=XG 

00120 

14* 

XX=XG 

00121 

15* 

RETURN 

00122 

16* 

4 XUSXG 

00123 

17* 

X6=X6/U.+R> 

00124 

18* 

GO TO 5 

00125 

19* 

2 M=N*1 

00126 

20* 

IFCM.GE.15) K=<10-M)/5 

00130 

21* 

P!2> =PR-PC 

00131 

22* 

S=!Xl2P-Xm)/!pt2)-PllPJ 

00132 

23* 

NSO 

00133 

24* 

IF!$.GT,0,Pns1 

00135 

25* 

IFIPI2) *6T • 0* ) GO TO 21 

00137 

26* 

IF<N,GT,0>60 TO 24 

00141 

27* 

23 XU = AMIN1 (XU* X!2P ) 

00142 

28* 

GO TO 22 

00143 

29* 

21 IFiN'GT.OPGO TO 23 

00145 

30* 

24 XLSAMAX1<XL*X(2>P 

00146 

31* 

22 IG=X(2»-P(2>*S 

00147 

32* 

IF < ABS< 1 ♦ -PC/PR > »LT *F ) GO TO 12 

00151 

33* 

xm=x«2> 

00152 

34* 

IF t X6 »ST • XU ,OR ♦ XG« LT • XL) XGS( XU* XL P * • 5 

00134 

35* 

PUP=P(2> 

00145 

36* 

GO TO 5 

00156 

37* 

12 K=2 

00157 

38* 

60 TO 5 

00160 

39* 

END 


0001 000125 22L 0001 *00104 ?3L 

0000 000012 INJPS 0000 I 000005 M 

0000 R 000002 X 0000 R 000004 XG 


ENO OF COMPILATION! 


NO diagnostics. 


GFORiIS entp*entp 

FOR S10A-C 06/23/73-16:44:02 (#0) 


FUNCTION ENTP 

EnTRP 

ENTRPl 

ENT 


ENTRT POINT 000263 
ENTRY POINT 000302 
ENTRY POINT 000307 
ENTRY POINT 000312 


STORAGE USCDt CODCU) 0003171 DATA! 0 P 0000451 BLANK C0MM0NI2) 000000 
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external references < block* name) 


0003 

EXIT 

0004 

NPRT* 

0005 

NI01S 

0006 

NI02S 

0007 

NERR3S 


STORAGE ASSIGNMENT (BLOCK* TTPE* RELATIVE LOCATION NAME ) 

0001 000149 IL OO01 000011 10L 0001 000140 11L 0001 0H0005 12L 

OOO 1 000072 5u 0001 OQO?ut> 4L 0000 000005 5F uuOl 000201 &L 

0000 R 000000 ENTP 0000 I OOODOl I 00(10 000017 fNJP* 0000 1 000002 J 

€000 R 000U04 S 


00100 

1* 

CENS 

INTERP FUNCTION FDR SYSTEM STUDY CDS 

NTPO 

ENT00100 

00101 

2* 


FUNCTION ENTPCY#X*N*A*M*K) 


ENT00200 

00103 

3* 


DIMENSION Y(1)'X(1> 


ENTQ0300 

00104 

4* 


INTEGER I 


ENT 00400 

00105 

5* 


ENTRT ENTRP(A) 


ENT00500 

00107 

6* 


ENTRT ENTRPIU) 


ENT00600 

00111 

7* 


IF ( N * GE *2 ) GO TO 10 


ENT00700 

00113 

6* 

12 

ENTP=T(1> 


entooboo 

00114 

9* 


GO TO 11 


ENT00900 

00115 

10* 

10 

1 = 1 


ENT 01 000 

00116 

11* 


IF(K*GT*01I=N 


ENTOIIOO 

00120 

12* 


IF ( A*LT *X ( I ) )G0 TO 1 


ENT01200 

00122 

13* 


DO 2 J=2*N 


ENT01300 

00125 

14* 


I=J 


ENTO 1400 

00126 

15* 


IF(K*6T*0)I=N*1-J 


ENT015O0 

00130 

16* 

2 

IF(A*LE*Xm)GO TO 3 


ENTO 1600 

00133 

17* 


GO TO 4 


ENT01700 

00134 

18* 

3 

K 1=1 “1 


ENT01R00 

00135 

19* 


IF(K*GT*0)K1=I+1 


ENT01900 

00137 

20* 


S=<A-X(Kl H/tXtll-XtKl M 


FNT02000 

00140 

21* 


ENTRT ENT(Y) 


ENT02100 

00142 

22* 


IF<N*LT.2)G0 TO 12 


ENT02200 

00144 

23* 


entp=y<ki )*mi>-r<Ki n*s 


ENT 02300 

00145 

24* 

11 

return 


ENT02400 

00146 

2b* 

1 

IF(M*EQ*0) 


ENT02500 

00146 

26* 


1PRINT 5* A *X ( I > » Y ( I ) 


ENT02600 

00154 

27* 

5 

FORMAT( 13M0****** ENTPL* 1P3E14*3> 


ENT02700 

00155 

2B* 


1=2 


EMT02A00 

00156 

29* 


JF(K.GT,01I=N“1 


ENT02900 

00160 

30* 

6 

IF (M *EG • 0 ) CALL EXIT 


FNT03000 

00162 

31* 


60 TO 3 


ENT03100 

00163 

32* 

4 

IF(M.E0*0) 


ENT03200 

00163 

33* 

1PRINT 7*A*X(I) rt(I) 


ENT03300 

00171 

34* 

7 

FORMAT! 13H0 ****** ENTPH* 1P3E14 * 3 ) 


CNT03400 

00172 

35* 


GO TO 6 


ENT03500 

00173 

36* 


END 


ENT03600 


ENO of compilation: no diagnostics* 


BFORflS HOPIPEpMOPIPE 

FOR S10A-C 06/23/73-18:44*04 <*0> 


SUBROUTINE WtPIPE ENTRT POINT 001706 


STORAGE U5E0! COOEU) 002066) OATA(0> 0014411 RLANK C0MM0N(2) 000022 


EXTERNAL REFERENCES (BLOCK* NAME) 


0003 

ENTP 

0004 

NEXP6S 

0005 

AL06 

0006 

EXP 

0007 

SORT 

0010 

NMOUS 

0011 

N1Q2S 

0012 

NERH3* 


STORAGE ASSIGNMENT (BLOCK* TYPE* RELATIVE LOCATION * NAME) 

0000 000331 IF 0001 000331 100L 0001 000030 110L 

0001 001464 140L 0001 001504 150L (1000 000353 160F 

0001 000)20 265G 0001 000700 331L 0001 001323 3346 

0001 00D41 521L 0001 000030 70L 0000 000363 90F 

OOOO 0007Q1 9Q3F 0000 001047 904F 0000 001227 905F 

0000 R 000166 ALE OOOO R 000171 AR OOOO R 000123 AM 

OOOO R 000132 DENSL OOOO R 000131 DENV OOOO R 000154 DPLA 

OOOO R 000202 DPLCT OOOO R 000143 DPLE OOOO R 000013 DPLT 

OOOO R 000010 DPVA OOOO R 000011 DPVC OOOO R 000204 DPVCT 

OOOO R 000012 DPVEX OOOO R 000007 DPVMOM OOOO R Q00203 OPVREC 

OOOO R 000175 DTFC OOOO P 000127 OTS OOOO « 000173 DT5C 

OOOO R 000177 OTMC 0003 R 000000 ENTP OOOO R 000146 F 

OOOO R 000024 GAM OOOO I 000153 I OOOO 001376 INJP* 


0001 001364 130L 

0000 000343 2F 

0001 001477 500L 

OOOO 000366 90 IF 
OOOO R 000152 AA 

0002 P nnoooo B 
OOOO R 000201 OPLC 
OOOO R 000000 0P5T 
OOOO R 000006 DPVE 
OOOO R 000014 DPVT 
OOOO R 000150 DTVET 
OOOO R 000210 FF 
OOOO 001366 INJPS 


0001 000760 131L 

0001 00051T 2376 

0001 001732 5?ftL 

OOOO 000533 902F 
OOOO R 000167 ALC 

oooo R noons cow 

OOOO R 000172 PPLCON 
OOOO R 000015 nPTOT 
OOOO R 000147 OPVET 
OOOO R 000124 DTP 

0000 R 000120 OTW 

0001 R 001761 FF 
OOOO R 000111 K 


0001 000050 1236 

OOGu fi 00012 7? 

OOOO I 000003 K 1 
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0000 R 000062 KL 
0000 R 000042 mjL 
0000 000211 OUTP 

0000 R 000155 PVAPA 
0000 R 000136 OCR IT 
0000 R 000030 RMOL 
0000 R 000165 RTCI 
0000 R 000122 RTF l 
0000 R 000072 TKL 
0000 R 000125 TSC 
0000 R 000200 TVM 
0000 R 000134 VS 


0000 R OO010O XSS 
0000 R 000046 MUV 
0000 R 000116 RERMEA 
0000 R 000161 PVAPC 
0000 R 000160 QENT 
0000 R 000040 RHOV 
0000 R 000206 RTCU 
0000 R 000164 RTFIC 
0000 R 000056 TKUV 
0000 R 000114 TSL 
0000 R 000004 TVMIW 
0000 P 000156 VVA 


0000 R 000133 LAMBDA 
0000 I 000105 NKL 
0000 R 000113 PI 
0000 R 000151 PVMIN 
0000 R 000157 OENTR 
0000 R 000126 RSCI 
0000 R 000205 RTCU 
0000 R 000106 SI6MA 
0000 R 000005 TREJ 
0000 R 000001 TVAP 
0000 R 000176 TtfC 
0000 R 000144 WAP 


0000 P 000076 M 
0000 1 000104 MMUV 
0000 R 000016 PT 
0000 R 000137 QA 
0000 R 000112 R 
0000 R 000140 RSCIC 
0000 R 000141 RTEC 
0000 R 000121 TFL 
0000 R 000207 TRCJ1 
0000 R 000002 TVAPA 
0000 R 000110 TMOPI 


0000 R 000142 MOOT 
0000 I 000162 NS 
0000 R 000130 PVAP 
0000 R 000135 GACRIT 
0000 R 000145 PE^AP 
0000 R 000163 RStTCC 
0000 R 000117 RTEl 
0000 R 000174 TFLC 
0000 R 000107 T$ 

0000 R 000003 TVAPC 
0000 R 000170 VLF 


THE VARIABLE* RTCU* IS REFERENCED IN THIS PROGRAM* BUT IS NOWHERE *|SJSNED A VALUE* 
THE VARIABLE* RTCL* IS REFERENCED IN THIS PROGRAM* BUT IS NOWHERE ASSIGNED A VALUE* 

SUBROUT INE HIP 1 PE < RTE * LE » LC » OIN » ML ► TL # TW# RTC t LA # TEVAP # RPST * NC • 

1 FOE»FCE» IHPT*NSCL*ME5H» ITPRNTI 
IMPLICIT REAULpM,K> 

COMMON BtlSl 

NAMELIST /QUTP/RTE*LE*GINpNL*TL*TW*LA*TEVAP*RPST*NC*DP5T* 

1 LC * RTC r TVAP* TVAPA * TVAPC r TVM IN * TREJ * OPVE • DPVMOM * 

10PVA f DPVC #DPVEX * OPLT* DPVT p DPTOT 
DIMENSION PT<3*2> * GAM (2 *2) #RM0L<4*2> *RM0V|2> *MUL<2*2> * MUV (4 *2 J * 

1TMUVI4) *KLU*2>*TKL(4>.M<2>*KSSI2.2> 

DATA PT/16. 11 149* 10398. 4 *0.53299 *17.69932* 12767. 6 *0.61344/ 

DATA <JAM/1,3B8E-3*6*5E-?*2*263E-3>1.E-6/ 

DATA RHOL/O* 69862* 0.20132E-3. 0.3084E-7# 4.65E-12* 1 *01 164* 

10.2205E-3 * 0.1923E-7*5.64E-12/ 

DATA MUV»TMUV/9*5E*5#1*14E-4i 1 .48E-4*2 .42E"4 * 7 - 2E“5» 9. £-5* 1 .22E-5# 

12 *3£-5 * 300* *600* * 900 . • 1500 */ *NMUV/4/ 

OAT A KL»TKL/«51* .445* .37* ,23* .91* *79* .665# .425* 300* *500- *800* * 

11500*/*NKL/4/ 

DATA M/39* * 23 •/ * 5IGMA/5 .6687E-12/ 

DATA TS/*02/*TWOPI/6. 2631653/* K/l*667/#R/fl. 3l7/*Pl/3. 14159265/ 

DATA KSS/0*472*0*1127E“3. .065* * 157E-3/ 

PlT*n=EXP*Pm. I1-PTI2.I )/T-PT<3*I)*ALnBIT) I 

GAMMA (T * I 1 -6AM (1*1) —GAM 12 * I ) *T ... * A .... 

DENLtT.I>=flHOL<l*I>+T*(-*HOL<2.I>'*'T*(-RWOL<3.n+T*RHOLt4*in > 

VISL<T»I >iMULU*n*EXP<MUL<2*Ii/T) 

KWALUT*I)=WSSIl.I)-WSSt2.I)*T 
DATA TSL/O *02/ 

CON=0* 

HOMOGENEOUS HEAT PIPE PROPERTIES UHPT=1> 

IF (MESH* E0« 0 > 60 TO 70 
RPST=0 .825* ( 1 */MESH) **1 * 0945 
PERM£A=0.03Tl*a*/MESH>**l*61B5 
TSL=11 • 7446* \ 1 * /MESH ) *• 1 . 3553 
70 CONTINUE 
EVAPORATOR SECTION 
110 RTEI=RTE-TW 

DTW=QIN*AL06 1 RT£/«TEI 1 / (KWALU TEVAP rNC > *TW0PI*LE > /FDE 
TFL=TEVAP-OTW 

«tfi=rtei-tl 

AW=P1*TS*12.*RTEI-TSI _ A 

DTFi0IN*AL06*RT£l/RTFI »/tENTP(XUl»NL> pTKL.NKL»TFL*0*0)*TW0P1*LEI 

A /FOE 
TSC=TFL-OTF 

DTS=9 IN* ALOG tRTFI/RSC 1 1 / 1 X W ALL < TSC * NC > *T WOPT *LE 1 /FDE 

TVAP=TSC-DTS 

PVAP=P(TVAP»NL> 

qENV-RHOV(NL > *PVAP/TVAP 

DENSL^OENL l T V AP * NL > 

LAMBDA-0 « 0 1 *PV AP* I PT 1 2 . NL J /TVAP-PT I 3 . NL > > * ( 1 . /OENV- 1 * /DENSL > 

VS=SORT«K*R*TVAP/M4NL> >*3162.27 

QACR I T=DENV*VS*LAMBOA/SQRT i a * * ( km . » > 

6CRIT=0ACRIT*PI*RSCI**2 

6A=0IN/(PI*RSCI**2> 

IF < QA .LE . 0 *6*6ACR1 T ) 60 TO 100 
RSC1C=SQRT(Q1N/IPI*0.39*GACRIT> > 

RTEC=RSCIC+TSMLMW 
WRITEI6* 1 )RTEC 

i format* • ocr i tic al heat flux exceeded, rte increased to **fio.4> 

RTE=RTEC 
60 TO 110 

100 MD0T=01N/LAMBDA * * , . 

DPLE * vlSL*TVAP*NL>*MD0T*JLE/2,)/(PERMEA*AW*0CNSL>*I.E-5 
VVAp=MD0T/(D£NV*Pl«RSei**2> 

DPVMOM=PVAP*<l.-l»/(l.MVVAP/VSI**2*«n . ^ ^ 

RE V AP=2 . *MDOT/ ( P I *RSC I *ENTP f MUV 1 1 * NL » • TmUV * NMUV ♦ TV AP * 0 . 0 > I 
F=FFIREVAP> 

DPVE=DENV *F*LE*VVAP**2/t2.*RSCU*UE-5 
dpvet=opve*dpvmom 

DTVET=TVAP*DPVET/ *PVAp* < PT \ 2 . NL ) /TVAP-PT 1 3* ML J H 

TVAPA=TVAP-DTVET 

OPST=2 . *6AMMA * TVAPA »NL > /RPST 

tvminstvapa 

pvmin=pvap-dpst 

PVMINSAMAXU PVMIN*. oil 
AASALOO I PVMIN ) 

DO 432 1-1*3 

432 TVMIN=TVMtN* (l.*4 AA-PT< 1*NLI*PTI2.NL>/TVMIN*PTI3.NL> *AL06<TVMIN) » 

l/<PTt2*NL>/TVNlN-PT(3*NLM> 
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00241 

62* 

c 

AOIARATIC SECTION 

00243 

63* 


OENSL=OENL 4 TV APA * NL > 

00244 

64* 


DPCA=VI5L 4TVAPA * NL ) **DOT* 4 LA+64.*TL 1 / < PFRME A* A W*OENSC ) *1 «E-5 

00245 

85* 


pvapaspvap-opvet 

00246 

66* 


OENV=RHOV < NL > *PVAPA/TVAPA 

00247 

87* 


VV A =MDOT/<OENV*P1*RSCI **21 

00250 

88* 


RE VAP=2 . *W00T/ 4 Pi *RSC I *ENTP 4 MUV ( 1 * NL 1 * TMUV * NMUV p TVAPA p 0 p 0 > 1 

00251 

89* 


F=Pf IREVAP1 

00252 

90* 


QPVA±DENV*F*4LA+64»*RSCI >*VVA **2/RSCl *1.E-S 

00253 

91* 


Q£NTM=LAMB0A*S0RT4 PI*0 . 5*DENV*0PST 1*316.227 

00254 

92* 


OENT=QENTR*PI*RSC I **2 

00255 

93* 


IF ILA.GT.0,2) GO TO 331 

30257 

94* 


DPVA=0. 

00260 

95* 


OPLA=0. 

00261 

96* 


331 PVAPC=PVAP— DPVET— DPVA 

00262 

97* 


AA=ALOG(RVAPC) 

00263 

98* 


TVAPC=TVAPA 

00264 

99* 


DO 332 1=1*3 

00267 

100* 


332 TVAPC=TVAPC*41.+4AA^PTU»NL1*PT(2»NL1/TVAPC*PT(3*NL>*AL0G(TVAPC1> 

00267 

101* 


l/(PT42*NLJ/TVAPC-PT(3*NL> M 

00267 

102* 

c 

CONDENSER SECTION 

00271 

103* 


NS=0 

00272 

104* 


TRE J=0 * 5* 4 TVMIN+TVAPC ) 

00273 

105* 


LC=QIN/ 4 1 ,8*RTE*TREJ**4*SISMA» 

00274 

106* 


RSCICe=RSCl 

00275 

107* 


131 RTFIC=RSCKC+TS 

00276 

100* 


RTC1=RTFIC*TL 

00277 

109* 


RTC=RTC1*TW 

00300 

110* 


DPVEX=DENV*VVA **2*0 . 5* 4 1 (RSC I/RSCICC ) *+2 > **2*1 . E-5 

00300 

111* 

c 

ALE=P1*TL*4RTFI+RTEI) 

00301 

112* 


ALE=PI*TSL* 4 RTF I *RTE 1 1 

00301 

113* 

c 

ALC=P|*TL*<RTFIC*RTCI ) 

00302 

114* 


alc=pi*tsl*irtfic+rtcd 

00303 

115* 


VLE=MDOT/<ALE*DENSU 

00304 

116* 


AR=ALE/ALC 

00305 

117* 


OPLCON=DENSU*VLE**2*0 .2* 4 l.-AR) *1 . E-5 

00306 

118* 


DTSC=G1N*AL0G(RTFIC/R5CICC)/4KWALUTVAPC*NC) *twopi*lci 

00307 

119* 


tflc=tvapc-dtsc 

00310 

120* 


DTFC=GIN*ALOG 4 RTC 1 /RTFIC ( / t ENTP4KL 4 1 * NL ) p TKL ♦ NK L * TFLC p 0*0)*T*OPI* 

00310 

121* 


ICC > 

00311 

122* 


t*c=tflc-otfc 

00312 

123* 


DTRC=QlN*ALOGtRTC/RTCl>/4KWALUTWCpNL)*TWOPI*LC1 

00313 

124* 


TVM-T VMI N 

00314 

125* 


TR£ J- TVAPC -DTSC-OTFC-OT^C 

00315 

126* 


LC=OIN/41.8*RTC*ThEJ**4*SI5HA) 

00316 

127* 


DEN5L=DENL 4 T VAPC *NL1 

00317 

128* 


DPLC=VISL ( TV APC * NL 1 *MDOT* 4 LC/2 .1/4 PE«MEA*AW*DENSL ) *1 .E-5 

00320 

129* 


DPLCT=DRLC*DPLCON 

00321 

130* 


DENV=RM0VtNL1*PVAPC/TVAPC 

00322 

131* 


VVAP=MD0T/4DENV*PI*RSCICC**2) 

00323 

132* 


REVAP=8.*MDOT/4pI*RSCrCC*ENTP{HUVtlfNL>rTMUV*NMUV*TVAPCrOfO) 1 

00324 

133* 


F=FF4REVAP) 

00325 

134* 


DPVC=0ENV*F*LC*VVAP**2/RSClCC*5.E-6 

00326 

135* 


DPVREC=0*4*DPVM0M 

00327 

136* 


DPVC T-DPVC+OPVEJt -DPVREC 

00330 

137* 


optot=dpvet+opva*dpvct+dple*opla*oplct 

00331 

138* 


PVAPC=PVAP-OPVET-DPVA-0 . 5*DPVCT 

00332 

139* 


aa=acog tpvapc i 

00333 

140* 


DO 334 1=1*3 

00336 

141* 


334 TVAPCST VAPC • 4 1 , ♦ 4 AA-PT ( 1 * NL > *PT ( 2 * ML » /TV APC+PT 4 3*NL ) *ALO© 4 TV APC 1 ) 

00336 

142* 


1 / 4PT 42 • NL ) /TVAPC-PT 4 3 p NL 1 1 ) 

00340 

143* 


OPVT=DPVET+OPVA+OPVCT 

00341 

144* 


DPLT=DPLE +OPLA+DPLCT 

00342 

145* 


NS=NS*1 

00343 

146* 


IF4NS.GT.20) GO TO 140 

00345 

147* 


GO TO 130 

00346 

148* 


130 CONTINUE 

00347 

149* 


1F4ITPRNT.NE.0) 

00347 

ISO* 


AVR1TE 46*90 )OPTOT.OPST.RTCU*RTCL*RSCieC *DPVC pF*REVAP* VVAPpDENV 

00347 

151* 


A . OPLC p DENSL * LC * TRE J* DTWC *OTFC * DTSC * TVAPC * TV*. TVM1N 

00347 

152* 


A *PVAPC*DPLCT*DPVCT*OPLCON*AR*VLE*A|_C*ALE*DPVEX*DPVA 

00347 

153* 


A fPVAPA*DPLApRTC*PVMlNpPVAP*DPLE»DPVE*OPVROK*RTE *DPVREC 

0034? 

154* 


A *G1NpMDOTpAW*TS*OACR1T*OA*OENTR 

00431 

155* 


IF1ABS4TREJ-TREJ11.LT. 0.11 SO TO 500 

00433 

156* 


TREJ1=TREJ 

00434 

157* 


GO TO 131 

00435 

158* 


140 #RITE46*2)DPTOT*OP5TpRSCICC 

00442 

159* 


2 F0RHAT4 *OCANNOT CONVERGE ON PORE SIZE **5E15.4) 

00443 

160* 


CON=l. 

00444 

161* 


GO TO 150 

00445 

162* 


500 WRITE 46* 160) 

00447 

163* 


160 FORMAT HOPUMPING SUFFICIENT* RTC MAINTAINED* * 1 

00450 

164* 


150 CONTINUE 

00451 

165* 


WRITE46*901JDPTOT*DP5T«RTCU*RTCL*RSCICC*DPVCpF*REVAP* VVAPpDENV 

00465 

166* 


WR I TE (6*902 ) DPLC p DENSL * LC ♦ TRE J » UTWC *DTFC * DTSC p TVAPC • TVM* TV«IN 

00501 

167* 


WRITE 4 6*903) PVAPC *0PLCT r DPVCT * DPLCON p AR * VLE * ALC p ALE * DPVEX * HPVA 

00515 

168* 


WRITE 46. 904 )PVAPA.DPLAp RTC *PVMIN*PVAP*DPLE*DPVE*DPVMOM*RTE .DPVREC 

00531 

169* 


WRITE(6*9n5 ) GIN* MOOT pAW*TS*OACRITpQA*OENTR 

00542 

170* 


0(1)=LC 

00543 

171* 


842J=RTC 

00544 

172* 


843ISTVAP 

00545 

173* 


B(41=TVAPA 

00546 

174* 


S 1 5 1 =TV APC 

00547 

175* 


0(6)=TVMIN 

00550 

176* 


B(7)=TREJ 

0 0551 

177* 


0(8)=DPVE 

00552 

178* 


049J=DPVMOM 

00553 

179* 


8(10)=DPVA 

00554 

ieo* 


041|)=OPVC 

00555 

181* 


84 12)=DPVEX 
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00556 

182* 


BU3)=DPLE 



00557 

183* 


tMl4)=DPLA 



00560 

184* 


Bl 15* -OPLC 



inn 

[in 


JHWW*' 



00563 

187* 


B418)=OPLT 



00564 

iaa* 


B< 19)=0PT0T 



00565 

189* 


B(2D)±DPST 



00566 

190* 


B<21>=CON 



0056? 

191* 


RETURN 




00567 

192* 

C 

*** FORMATS 



00570 

193* 


90 FORMAT i 1P10612.4 > 



00571 

194* 


901 FORMAT ( 

* *#5Xp ’TOTAL PRESURE DROP IN PlP£» * IOX p » nPT0T» 

pE14<6/ 

00571 

195* 


1 

• «p5Kp* TOTAL AVAILABLE PRESSURE 

♦pIOXp'DPST • 

•E14.6/ 

00571 

196* 


2 

* «p5Xp* 

•pIOXp'RTCU 

•pE14*6/ 

QQ571 

197* 


3 

* * p5Xp * 

* f IOXp ♦RTCL 

* <El4.fi/ 

00571 

198* 


4 

♦ »»5X»* 

*.10Xp*RSCICC 

♦pE14.6/ 

00571 

199* 


5 

* 'pSXp'V PRESSURE OROP CONDENSER 

♦pIOXp'DPVC 

* fE14 .6/ 

00571 

200* 


5 

* * pSXp •FRICTION FACTOR 

♦ p 1 OX p * F 

• pE14 ,6/ 

00571 

201* 


6 

• *p5Xp* REYNOLDS NUMBER VAPOR 

♦pIOXp* REVAP 

• p E 1 4*6/ 

00571 

202* 


7 

* *p5Xp* VELOCITY VAPOR 

* pIOXp *VVAP 

• p £ 14 • 6/ 

00571 

203* 


0 

• * p 5X p • VAPOR DENSITY 

♦pIOXp *DENV 

•pEI4.6> 

00572 

204* 


902 FORMAT 

• *p5Xp ‘LIQUID PRESSURE DROP CONDE ' * 10X » *DPLC 

■PE14.6/ 

00572 

205* 


1 

1 * p5Xp 'LIQUID DENSITY 

•p1CXp*DENSL 

* ♦ E 14 • 6/ 

00572 

206* 


2 

• *p5Xp 'CONDENSER LENGTH 

'pIOXp* LC 

1 p E 1 4 • 6/ 

00572 

207* 


3 

' * pSXp'AVG REJECTION TEMPERATURE 

•pIOXp »TRFJ 

' p E 1 4 *6/ 

00572 

208* 


4 

1 * p 5X? ' QT CONDENSER WALL 

•pIOXp* DTWC 

• tEl4.fi/ 

00572 

209* 


5 

* *p5Xp»DT CONDENSER FILM 

•pIOXp *dtfc 

•pE14.6/ 

00572 

210* 


6 

* *#5Xp»DT CONDENSER SCREEN 

*p IOXp ’DISC 

••E14.6/ 

00572 

211* 


7 

* *p5X# • VAPOR TEMP CONDENSER 

*i IOX p 'TVAPC 

* P El 4*6/ 

00572 

212* 


8 

* »»5X»» 

•p 10X p *TVM 

* p E14 • 6/ 

00572 

213* 


9 

* **5Xp* 

* P IOXp *TVMIN 

••El4.fi> 

00573 

214* 


903 FORMAT * 

* *»5Xp ’PRESSURE IN CONSENSER 

*P IOXp *PVAPC 

• pEI 4 « 6/ 

00573 

215* 


1 

* *i5X»»TOT l pressure drop cond 

♦pIOXp'OPLCT 

* pE14 • 6/ 

00573 

216* 


2 

* •p5Xp»TOT V PRESSURE DROP 

* pIOXp *OPV 

* p E14 . 6/ 

00573 

217* 


3 

• • #5X p * CONTRACT PRESSURE DROP 

* pIOXp 'PPLCON 

I*PEI4.6/ 

00573 

218* 


4 

• * p5Xp * AREA RATIO 

* P IOXp *AR 

• p E 14 * 6/ 

00573 

219* 


5 

' '#3Xp*LI9UID VELOCITY 

♦pIOXp 'VLE 

* p £14 1 6/ 

00573 

220* 


6 

' »p5Xp*AREA l flow cond 

* pIOXp *ALC 

•pEl4.fi/ 

00573 

221* 


7 

• *p5X»*AREA l flow evap 

* p IOXp 'ALE 

• p E 14 • 6/ 

00573 

222* 


8 

♦ *»5Xp ♦PRESSURE DROP EXPA N 

•pIOXp *DPVEX 

•♦El4.fi/ 

00573 

223* 


9 

♦ *p5Xp*V PRESSURE OROP ADIABATIC 

•pIOXp »QPVA 

•PE14.6I 

00574 

224* 


904 FORMAT ( 

* *fSXp* PRESSURE IN ADIABATIC SEC 

•pIOXp *PVAPA 

•pE14.6/ 

00574 

225* 


1 

* *p5Xp'L PRESS DROP ADI AB 

•pIOXp *DPLA 

' pE14.6/ 

00574 

226* 


2 

* »p5Xp» 

•pIOXp *RIC 

• p E 14 • 6/ 

00574 

227* 


3 

• *»5x#‘ PRESSURE RECOVERED . 

•p10Xp*DPVREC 

•pE14.6/ 

00374 

228* 


4 

• »p5Xp'MIN V PRESSURE 

•pIOX, 'PVM1N 

••E14.6/ 

00574 

229* 


5 

• 1 # 5X p * V PRESSURE CONDENSER 

•pIOXp 'PVAP 

*pE14.6/ 

00574 

230* 


6 

1 **5X*» 

•pIOXp * 

•pE14.fi/ 

00574 

231* 


7 

♦ *»5Xp*DP V EVAPORATOR 

•pIOXp 'D^VE 

•pEl4.fi/ 

00574 

232* 


8 

• * i 5X * ' DP V MOMENTUM 

•pIOXp 'DPVMOM 

'pE14.6/ 

00574 

233* 


9 

» ♦ p 5X » • HP RADIUS EVAPORATOR 

•pIOXp *RTE 

* PEl4.fi/ 

00574 

234* 


A 

• *p5Xr» PRESSURE RECOVERED 

♦pIOXp 'ORVREE 

* »E14.6> 

00575 

235* 


905 FORMAT ( 

* ♦p5X.*T0TAL HEAT TRANSFERRED 

* pIOXp *QIN 

•pE14.fi/ 

00575 

236* 


1 

♦ ♦ * 5X » ♦ MASS FLOWRATE 

* p IOXp *MDOT 

• PE14.6/ 

00575 

237* 


2 

* ♦ p5Xp * 

* # 1 OX P • AW 

• *E14 .6/ 

00575 

238* 


3 

♦ • # SXp ♦ 

•pIOXp'TS 

' pE14*6/ 

00575 

239* 


4 

♦ ♦ p5Xp 'CRITICAL HEAT FLUX 

• pIOXp 'OACRIT 

'PEl4.fi/ 

00575 

240* 


4 

• ♦ p5Xp 'ACTUAL HEAT FLUX 

•pIOXp *QA 

' pE14.fi/ 

00575 

241* 


6 

♦ ♦ p 5 Xp ' ENTRAINMENT LIMIT 

• pIOXp 'QENTR 

•pE14.fi) 

00575 

242* 

c 





00575 

243* 

c 





00576 

244* 


FUNCTION 

FF ( REVAP ) 



00601 

245* 


IF1REVAP 

♦ST. 20001 SO TO 520 



00603 

246* 


FF=16./REvAP 



00604 

247* 


SO TO 521 



00605 

248* 


520 FF=0*0l46/tREVAP)**0.04fl 



00606 

249* 


521 RETURN 




00607 

250* 


ENO 





END OF COMPILATION; 2 DIAGNOSTICS* 


GMARpIS HP* HP 

MAP 23-D 06/23/73 18:44110 1*0) MR 


Ip 

IN 

HPD 

2. 

IN 

HOP I PE 

3* 

IN 

SEARCB 

4* 

IN 

EMTP 


ADORESS LIMITS 
STARTING ADDRESS 

001000 

014242 

020414 

040000 

047142 

WORDS DECIMAL 

7949 

IBANK 

3683 

DRANK 
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SEGMENT MAIN 001000 020414 040000 047142 


NSMTC*/FOH 

1 

001000 001021 



NRBLA5/F0H 

1 

001022 001044 



NRWNOS/FOfl 

1 

001045 001126 

2 

040000 040011 

NWEF5/F0R 

1 

001127 U01312 

2 

040012 040031 

NFTCH4/F0R 

1 

001313 001627 

2 

040032 040057 

NINPT5/FOR 

1 

001630 002514 

2 

040060 040103 

NCLOSS/FOR 

1 

002515 002705 

2 

040104 040134 

NtfSLKS/FOR 

1 

002706 003017 



nbsbls/for 

1 

003020 003060 



NUPQA5/F0R 

1 

003061 003116 



N0FOO4/FOR 



2 

040135 G42336 

NFTV5/F0R 

1 

003117 003141 



NBDCVf/FOR 

1 

€03142 003267 

2 

042337 042401 

NCNVT5/F0R 

1 

003270 003511 

2 

042402 042476 

NININ5/F0R 

1 

003512 003702 

2 

042477 042502 

notins/for 

1 

003703 004205 

2 

042503 042514 

UTINFV (COMMON BLOCK) 



042515 042517 

NFCHKt/FOR 

1 

004206 005174 

2 

042520 042673 


3 

UTINFV 

4 

042674 042745 

NIOER5/FOR 

1 

005175 005413 

2 

042746 043116 

NOUT4/FOR 

1 

Q05414 006472 

2 

043117 043152 

NFMT6/F0R 


006473 007350 

2 

043153 043227 

NTAB1/F0R 



2 

043230 043404 

ERUt 





NLOUT*/FOR 

1 

007351 010432 

2 

043405 043442 

NLINPS/FOR 

1 

010433 012236 

2 

043443 04362? 

NINTR1/FOR-JPL 

1 

012237 01246] 

2 

043630 043714 

NOB UFA/FOR 

1 

012462 012523 

2 

043715 043715 

SQRT4/F0R-JPL 

1 

012524 012562 

2 

043716 043722 

EKP5/FOR 

1 

012563 012652 

2 

043723 043743 

ALOGt/FOR 

1 

012653 012772 

2 

043744 044009 

NEXP64/F0R 

1 

012773 013167 

2 

044005 044056 

nerrs/for 

1 

013170 013565 

2 

044057 044257 

NIERI/FOR 

1 

013566 013737 

2 

044260 044377 

NOSYM4/F0R 

1 

013740 014201 

2 

044400 044404 

NSTDP4/F0R 

1 

O14J>02 014241 

2 

044405 044420 

BLANK* COMMON (COMMON 

BLOCK) 



044421 044445 

MPO 

1 

014242 015547 

0 

044446 045412 



► 

2 

BLANK *COMMON 

HOPIPE 

1 

015550 017635 

0 

04541S 047053 




2 

BLANKSCOMMON 

SEARCB 

1 

017636 020075 

0 

047054 047075 




2 

BLANK* COMMON 

ENTP 

1 

020076 020414 

0 

047076 047142 




2 

BLANK*COMNON 


SYS**RLIBf. LEVEL 60 02 

END OF COLLECTION - TIME 1.450 5EC0ND5 


OXOT HP 


*!NPP 
I HPT 

. 

♦1 

NSCL 

= 

*2 

MESH 

S 

.10000000E*03 

FOE 

Z 

.10000000E*01 

FCE 


»10000000E*01 

*END 




PUMPING SUFFICIENT. RTC MAINTAINED. 
TOTAL PHESURE DROP IN PIPE 
TOTAL AVAILABLE PRESSURE 


V PRESSURE DROP CONDENSER 

friction factor 

REYNOLDS NUMBER VAPOR 
VELOCITY VAPOR 
VAPOR DENSITY 

LIQUID PRESSURE OROP CONOE 
LIQUID DENSITY 
CONDENSER LENGTH 

avg rejection temperature 

DT CONDENSER WALL 

DT condenser FILM 

DT CONDENSER SCREEN 
VAPOR TEMP CONOENSER 


PRESSURE IN CONSENSCR 
TOT L PRESSURE OROP COND 
TOT V PRESSURE DROP 
CONTRACT PRESSURE DROP 
AREA RATIO 


.220647*00 

.276654*00 

*000000 

•000000 

•434263*00 

.141929-01 

.994367-02 

•296626*04 

.159531*04 

•352173-03 

•162729*00 

.671531*00 

•136312*03 

.997994*03 

.914676-01 

•000000 

.224434*00 

.996310*03 

.994765*03 

.994765*03 

.749792*01 

.162729*00 

.106193-01 

.000000 

• 100000*01 
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LIOUIO VELOCITY 

VLE 

• 718693+01 

area l flow cond 

ALC 

.689699-01 

AREA L FLOW CVAP 

ALE 

.609699-01 

PRESSURE OROP EXPA N 

DPVEX 

.000090 

V PRESSURE CROP ADIABATIC 

DPVA 

•oooooo 

PRESSURE IN ADIABATIC SEC 

PVAPA 

.750 323+01 

L PRESS DROP ADI AB 

OPLA 

•oooooo 


RK 

*500000+00 

PRESSURE RECOVERED 

OPVREC 

*723830+01 

MIN V PRESSURE 

pvmin 

•751524+01 

V PRESSURE CONOENSER 

PVAP 

•352932-01 

.307212-02 

DP V EVAPORATOR 

DPVE 

•093411-02 

DP V MOMENTUM 

DPVMOM 

.500000+00 

HP radius evaporator 

RTE 

.357364-02 

PRESSURE RECOVERED 

DPVREE 


total heat transferred 

Q1N 

.700000+03 

MASS FLOWRATE 

MDOT 

,332857+00 


AW 

• 1 31368+00 


TS 

,457371-01 

CRITICAL HEAT FLUX 

QACRIT 

•191457+05 

ACTUAL HEAT FLUX 

QA 

•116152+04 

ENTRAINMENT LIMIT 

OENTR 

•823260+04 


PUMPING SUFFICIENT, RTC MAINTAINED* 
TOTAL PRESURE DROP IN PIPE 

DPTOT 

•147678+00 

TOTAL AVAILABLE PRESSURE 

DPST 

.276768+00 


RTCU 

•OOOOOO 


RTCL 

•OOOOOO 


RSCICC 

.534263+00 

V PRESSURE DROP CONDENSER 

DPVC 

.421640-02 

FRICTION FACTOR 

F 

.100433-01 

retnolos number vapor 

REVAP 

.242640+04 

VELOCITY VAPOR 
VAPOR DENSITY 

WAP 

.105022+04 

OENV 

*353446-03 

LIQUID PRESSURE DROP CONDE 

OPLC 

*111071+00 

LIQUID OENSITT 

DENSL 

.671430+00 

condenser length 

LC 

.115071403 

AV6 REJECTION TEMPERATURE 

TREJ 

*998403+03 

OT condenser wall 

DTWC 

.913152-01 

DT CONDENSER FILM 

DTFC 

•OOOOOO 

DT CONDENSER SCREEN 

DISC 

.221263+00 

VAPOR TE«P CONDENSER 

TVAPC 

.998716+03 


TVM 

♦995031+03 


tvmin 

.995031+03 

PRESSURE IN CONSENSER 

PVAPC 

,752008+01 

TOT L PRESSURE DROP COND 

DPLCT 

.111071+00 

TOT V PRESSURE OROP 

DPV 

.265892-02 

CONTRACT PRES5URE OROP 

DPLCON 

•oooooo 

AREA RATIO 

AR 

•100000+01 

LIQUID VELOCITT 

VLE 

•594867+01 

AREA L FLOW COND 

ALC 

•033386-01 

AREA L FLOW EVAP 

ALE 

.833386-01 

PRESSURE OROP EXPA N 

DPVEX 

•oooooo 

V PRESSURE DROP ADIABATIC 

DPVA 

•oooooo 

PRESSURE IN ADIABATIC SEC 

PVAPA 

•752941+01 

L PRESS DROP ADI AB 

OPLA 

•OOOOOO 


RIC 

.600000400 

PRESSURE RECOVERED 

DPVREC 

.725764+01 

MIN V PRESSURE 

pvmin 

*753440+01 

V PRESSURE CONDENSER 

PVAP 

.289563-01 

DP V EVAPORATOR 

DPVE 

.109042-02 

•389368-02 

OP V MOMENTUM 

DPVMOM 

•600000+00 

HP RADIUS EVAPORATOR 

RTE 

.155747-02 

PRESSURE RECOVERED 

DPVREE 


TOTAL MEAT TRANSFERRED 

GIN 

•700000+03 

MASS FLOWRATE 

MDOT 

.332862+00 


AW 

.160105+00 


TS 

.457371-01 

CRITICAL MEAT FLUX 

QACRIT 

•191918+05 

ACTUAL HEAT FLUX 

QA 

.780617+03 

ENTRAINMENT LIMIT 

OENTR 

•024417+04 


PUMPING SUFFICIENT. RTC MAINTAINED. 
TOTAL PRESURE DROP IN PIPE 

DPTOT 

,100369+00 

TOTAL AVAILABLE PRESSURE 

DPST 

,276716+00 


RTCU 

•oooooo 


RTCL 

•oooooo 


RSCICC 

•634263+00 

V PRESSURE DROP CONDENSER 

DPVC 

.154076-02 

FRICTION FACTOR 

F 

.101264-IU 

REYNOLDS NUMBER VAPOR 

REVAP 

.204342+04 

VELOCITY VAPOR 

WAP 

•743669+03 

VAPOR DENSITY 

DENV 

.354161-03 

LIQUID PRESSURE DROP CONOE 

OPLC 

.006363-01 

LIQUID DENSITY 

DENSL 

•671373+00 

CONDENSER LENGTH 

LC 

•905418+02 

AVG REJECTION TEMPERATURE 

TREJ 

•940633+03 

DT CONDENSER WALL 

DTWC 

•911700-01 

OT CONDENSER FILM 

DTFC 

•oooooo 

OT CONOENSER SCREEN 

01 SC 

•219020+00 

VAPOR TEMP CONOENSER 

TVAPC 

.990943+03 


TVW 

•995217+03 


TVMIN 

.995217+03 


JPL Technical Memorandum 33-663 


PRESSURE IN CONSENSER 

PVAPC 

•754503*01 

TOT L PRESSURE DROP COND 

DPLCT 

.806363-01 

TOT V PRESSURE DROP 

DPV 

.757738-03 

CONTRACT PRESSURE DROP 

DPLCON 

•000000 

AREA RATIO 

AR 

.100000*01 

LIQUID VELOCITY 

VLE 

.307432*01 

AREA L FLO* COND 

ALC 

•977073-01 

AREA L FLO* EVAP 

ALE 

.977073-01 

PRESSURE DROP EXPA N 

DPVEX 

•oooooo 

V PRESSURE DROP ADIABATIC 

OPVA 

.000000 

PRESSURE IN ADIABATIC SEC 

PVApA 

.759541*01 

L PRESS DROP AOIAB 

DPLA 

.000000 


RIC 

.700000*00 

PRESSURE RECOVERED 

DPVREC 

•727112*01 

N!N V PRESSURE 

PVMIN 

•754783*01 

V PRESSURE CONDENSER 

PVAP 

.245486-01 

•468914-03 

DP V EVAPORATOR 

DPVE 

•195757-02 

DP V MOMENTUM 

DPVMON 

•700000*00 

HP RA01US EVAPORATOR 

RTE 

•783026-03 

PRESSURE RECOVERED 

DPVREE 


TOTAL HEAT TRANSFERRED 

QIN 

•700000*03 

MASS FLOWRATE 

MOOT 

.332865*00 


A* 

•188093*00 


TS 

.457371-01 

CRITICAL MEAT FLUX 

OACRIT 

•192240*05 

ACTUAL HEAT FLUX 

QA 

•553872*03 

ENTRAINMENT LIMIT 

OEMTR 

•825117*04 


RTE 

5.000-01 

6.000-01 

7.000-0! 

LE 

3.000*01 

0.000 

0.000 

NC 

1.000*00 

0,000 

0.000 

QIN 

7.000*02 

0.000 

0.000 

TL 

0.000 

0.000 

0.000 

TW 

2.000-02 

0.000 

0.000 

LA 

1. 000-01 

0.000 

0.000 

TEVAP 

1.000*03 

0.000 

0.000 

RPST 

5.339-03 

0.000 

0.000 

NC 

1.000*00 

0.000 

0.000 


1.383*02 

1.161*02 

9.854*01 

RTe 

5.000-01 

6.000-01 

7.000-01 

TVAP 

9.985*02 

9.908*02 

9.990*02 

TVAPA 

9.984*02 

9.907*02 

9.989*02 

TVAPC 

9.983*02 

9.987*02 

9.989*02 

TVMIN 

9.998*02 

9.950*02 

9,952*02 

TREJ 

9.9B0*02 

9.984*02 

9.906*02 

DPVE 

3.0/2-03 

1.098-03 

4.609-04 

dpvnom 

8.934-03 

3.894-03 

1.950-03 

DPV A 

0.000 

0.000 

0.000 

DPVC 

1*419-02 

4.216-03 

1.541-03 

opvex 

0.000 

0.000 

0.000 

DPLE 

3.529-02 

2.896-02 

2.455-02 

OPLA 

0.000 

0.000 

0.000 

DPLC 

1.627-01 

1. 111-01 

8.064-02 

OPLCON 

0.000 

0.000 

0.000 

OPVT 

2.203-02 

7.651-03 

3.184-03 

DPLT 

1.980-01 

1.400-01 

1.052-01 

DPTOT 

2.2U6-01 

1.477-01 

1.084-01 

OPST 

2.769-01 

2.768-01 

2.767-01 

CON 

0.000 

0.000 

0 .000 
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